home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / FGL402D.ZIP / EXBAS.ARJ / TEMP / 08-15.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-31  |  586 b   |  33 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST VBwidth = 20
  6. CONST VBheight = 20
  7.  
  8. OldMode = FGgetmode
  9. FGsetmode 19
  10. FGvbinit
  11.  
  12. FGsetcolor 15
  13. FGrect 0, VBwidth-1, 0, VBheight-1
  14. FGsetcolor 9
  15. FGrect 1, VBwidth-2, 1, VBheight-2
  16. FGwaitkey
  17.  
  18. SetMemStatus& = SETMEM(-(VBwidth*VBheight+16))
  19. Handle = FGvballoc(VBwidth,VBheight)
  20. Status = FGvbopen(Handle)
  21. FGvbcut 0, VBwidth-1, 0, VBheight-1, 0, VBheight-1
  22.  
  23. FOR X = 0 TO 320-VBwidth STEP VBwidth
  24.    FGvbpaste 0, VBwidth-1, 0, VBheight-1, X, 199
  25. NEXT
  26. FGwaitkey
  27.  
  28. FGvbclose
  29. FGvbfree Handle
  30. FGsetmode OldMode
  31. FGreset
  32. END
  33.